home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilfsf18.el.z / ilfsf18.el
Encoding:
Text File  |  1998-05-21  |  2.5 KB  |  100 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilfsf18.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23.  
  24. ;;;============================================================================
  25. ;;; Prologue
  26.  
  27. (if (string-match "2\.03" comint-version)
  28.     (fset 'comint-mem 'member))
  29.  
  30.  
  31. ;;;============================================================================
  32. ;;; Functions
  33.  
  34. (defun add-hook (hook function)
  35.   " Add FUNCTION to HOOK's list.
  36. Arguments are HOOK and FUNCTION. FUNCTION is not added if it's already
  37. on the list."
  38.   (set hook
  39.        (if (boundp hook)
  40.        (let ((value (symbol-value hook)))
  41.          (if (and value (or (not (consp value)) (eq (car value) 'lambda)))
  42.          (setq value (cons value nil)))
  43.          (if (not (comint-mem function value))
  44.          (setq value (append value (list function))))
  45.          value)
  46.      (list function))))
  47.  
  48.  
  49. (defun ilisp-get-input-ring ()
  50.   "Use instead of get-input-ring coming-input-ring or input-ring."
  51.   input-ring)
  52.  
  53.  
  54. (defun ilisp-ring-insert (ring input)
  55.   "See 'ring-insert'."
  56.   (ring-insert ring input))
  57.  
  58.  
  59. (defun ilisp-temp-buffer-show-function-symbol ()
  60.   "See 'temp-buffer-show-hook'."
  61.   'temp-buffer-show-hook)
  62.  
  63.  
  64. (defun set-ilisp-temp-buffer-show-function (val)
  65.   "See 'temp-buffer-show-hook' set function."
  66.   (setq temp-buffer-show-hook val))
  67.  
  68.  
  69. (defun ilisp-temp-buffer-show-function ()
  70.   "See 'temp-buffer-show-hook'."
  71.   temp-buffer-show-hook)
  72.  
  73.  
  74. (defun ilisp-input-ring-index ()
  75.   "See 'input-ring-index'."
  76.   input-ring-index)
  77.  
  78.  
  79. (defun set-ilisp-input-ring-index (n)
  80.   "See 'input-ring-index' set function."
  81.   (setq input-ring-index n))
  82.  
  83.  
  84. (defun ilisp-input-ring-size ()
  85.   "See 'input-ring-size'."
  86.   input-ring-size)
  87.  
  88.  
  89. (defun set-ilisp-input-ring-size (n)
  90.   "See 'input-ring-size' set function."
  91.   (setq input-ring-size n))
  92.  
  93.  
  94. ;;;============================================================================
  95. ;;; Epilogue
  96.  
  97. (provide 'compat-fsf18)
  98.  
  99. ;;; end of file -- il-fsf18.el --
  100.